home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 24
/
Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso
/
Aminet
/
biz
/
dopus
/
WolleDOpus.lha
/
wolledopus
/
dopus5
/
arexx
/
CDD.dopus5
next >
Wrap
Text File
|
1998-02-06
|
841b
|
47 lines
/*
$VER: CDD.dopus5 V0.98 (06.02.1998) © Marco Wollkopf
E-Mail: Marco.Wollkopf@t-online.de
Homepage: http://home.t-online.de/home/Marco.Wollkopf
HilfsScript für Shell-Befehl CDD
Einstellungen:
-----------------------------------------------
keine
-----------------------------------------------
*/
options results
options FAILAT 99
parse arg arg1
IF SHOW('P','DOPUS.1') THEN
address DOPUS.1
ELSE DO
SAY "DirectoryOpus nicht gefunden"
EXIT
END
if index(upper(arg1),'SOURCE') ~= 0 then do
lister query source
handle = result
if handle =='' | handle='RESULT' then do
say NOLISTER
exit
end
lister query handle path
say result
end
if index(upper(arg1),'DEST') ~= 0 then do
lister query dest
handle = result
if handle =='' | handle='RESULT' then do
say NOLISTER
exit
end
lister query handle path
say result
end